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EDTSMCDOWN = move cursor down 1b-5e Sep-1 5 VAX-11 Bliss-32_V 
=300 71382 9}: 3: 9? Disk KSVMSMAST eRceD +°sheSncooun. BLI; "he 
ZTITLE “EDTSMCDOWN = move cursor down' 
MODULE EDTSMCDOWN ( ! Move curser down 
jDENT = 'v04-000' File: MCDOWN.BLI Edit: JBS1004 


BEGIN 


leuaeeeneenencenenennentenenentecereereteeretereeeenennennneneennnerenteets 
'e 

'e COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL tae oy CORPORATION, MAYNARD, MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


te THIS fe “Verne IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gl 
'* ONLY IN ACCORDANCE WITH THE TERMS OF rave” ieee AND WITH THE 
:* IN stim st OF THE ABOVE eld h NOTICE. THIS By OTH pH 
te COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWIS LE 10 

:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF T $s HEREBY 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: eORPORAT ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


FOR THE USE OR > emma OF ITS 


ie DIGITAL ASSUMES NO RESPONSIBILITY 
1S NOT SUPPLIED BY DIGITAL 
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'@ SOFTWARE ON EQUIPMENT WHICH 
lee eeee eee AeA AAAAAAAAAATARAATAAAAAAAAAEAeAAeAeeeeeeeeeeeeeeeeeeeeee 
1 
lee 
: FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 
Move cursor down to next Line 
ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: September 9, 1979 
1 
' 
' 
1 
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i] 
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i MODIFIED BY: 


i 1-001 - Original. DJS 19-FEB-1981. This module was created by 
: eutrocting routine EDTS$$CS _DUN from module MOVCUR. 
: 1-90 ; - Re mage raze headers. 18s" 11-Mar 1 
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- Pu tst_eob in Line. STS 32-Sep-1982 
4 - od, Birt LN_NO the new screen update logic. JBS 29-Sep-1982 
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SBTTL *Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSS$CS_DWN; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ’; 


MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 
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TER: CeoT. sae MCDOWN.BLI; °? 
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EDTSM EDTSMCDOWN = move cursor down 1b-5 ep- VAX-11 Bliss-32 V4.0 
ett EDTSSCS_DWN = move cursor down 14-$ gee7} 3b 9}: 38: 9? DISKS$V nen ASTER: CEDT. She MCDOWN.BLI; * te 
5 ZSBTTL "EDTSSCS_DWN = move cursor down’ 
GLOBAL ROUTINE EDTSSCS_DWN ! Move cursor down 
= 


lee 


FUNCTIONAL DESCRIPTION: 


WO OONOAW £¢ 
ef 


'¢ 
Replace the current Line in the work file if it has changed. 


EDTSSRPL_CHGDLN (); 
If on EOB, then return failure. 


i) 
$ 
5 1 
5 1 
3 1 
3 1 
3 1 
; 1 
3 4 : 
; 38 1} This routine moves to the first character of the following Line. If the 
; ge ¢ : } current Line is EOB then it fails. 
: 38 66 : FORMAL PARAMETERS: 
; 1! NONE 
3; WF 1! 
; 100 0 1! IMPLICIT INPUTS: 
3; 6101 a! 1 
: 108 ore i _— 
3 4 Bere : IMPLICIT OUTPUTS: 
- $67 1 i NONE 
; 199 6 1} 
3 18 O68 : ROUTINE VALUE: 
: 110 0680 1! 1 = move successful 
3 M33 O68 : 0 = no next Line 
; 118 Hy | SIDE EFFECTS: 
: 115 et 1! If the current Line has changed it is replaced in the work file. 
3 116 0686 1! 
. 3 687 1 !-- 
3; (118 688 1 
3 138 ret § BEGIN 
> 121 91 EXTERNAL ROUTINE 
- § § 35 EDTSSRPL_CHGDLN : NOVALUE, 
3 9 EDTSSCET~ TXTLN : NOVALUE, 
; 124 4 EDTSSRD CAXTLN; 
3 ' 5 5 
; $ 39 EDTSSA. Wal, t REF LIN_BLOCK, 
: 1 5 3 
: 130 
3 ' 1 
; 1 ; 
ae 
; 6135 
oe 
ss 
3; 1 
s 1 
a 6§ 
3; 3 
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3 IF (.EDTS$A_WK_LN EQLA EDT$$Z_EOB_LN) THEN RETURN (0); 
40 '¢ 
41 i Move to the next Line, fetch the Line into the buffer and return success. 
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SSRD_NXTLN (); 
SSGET_TX 

1); 
Routine Base: 


= move cursor down 
URN ( 
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000000006 00 

000000006 00 
! <BLF /PAGE> 
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46 bytes, 


; Routine Size: 


$M DTSMCDOWN = move cursor down “Se 4 5 VAX-11 Bliss-32 V4 
7042000. EDT Ses DUN = move cursor down 122868- 1984 9}: 38: 8 DISKSVMSMASTER: CE bt 
; 150 719 1 END ! TSM 
131 0736 ! of module EDTSMCDOWN 
3; 152 721 0 ELUDOM 
3 PSECT SUMMARY 
3 Name Bytes Attributes 
> EDTSCODE 46 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
‘giles eer re Se eee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 B 2 40 00:00.2 
> _$255$DUA28: EDT: SRCIPSECTS.L32;1 2 1 5 7? 00:00.1 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:MCDOWN/OBJ=OBJ$:MCDOWN MSRC$:MCDOWN.BL1I/UPDATE=(ENHS:MCDOWN) 


Size: 

Run Time 

Sleseed +tne: 

Lines/CPU Min rH 

Lexenes/CPU-Nin: 12674 
conery Used: 55 pages 

Compilation Complete 


46 gode.¢ 0 data bytes 


ones 
SRC JMCDOWN.BLI;1 


4 


Page 5 
. (4) 


PMENT CORPORATION 


AH-BT13A-SE 
AND PROPRIETARY 


VAX/VMS V4.0 


13 


